Option Explicit
Sub C_Sample046()
    Dim myWb As Workbook
    Dim myWd As Window
    Set myWb = Workbooks(1) 			'Nï
    Set myWd = myWb.Windows(1)		'N
    With myWd
        .ScrollRow = 7 				'wC
        .ScrollColumn = 5				'w
    End With
    Set myWd = Nothing				'
    Set myWb = Nothing
End Sub
